home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / D-F / FSP 2.6 / FSP Control.Alpert2.3 < prev    next >
Encoding:
Text File  |  1989-09-18  |  4.7 KB  |  79 lines  |  [TEXT/QED1]
  1. * This is an FSP 2.3 compatible control file.
  2. * It has since been superceded by newer versions that
  3. * take advantage of new FSP capabilities.  -- Tom Konantz
  4. *
  5. * Sample of MACropoedia BBS's FSP Control file
  6. * MACropoedia may be accessed at 312-295-6926 at 1200 or 2400 baud
  7. *
  8. * For purposes of brevity FSL means a file section listing.
  9. *
  10. CLEAR                                     ;Clear memory
  11. *
  12. * Define a process to be repeated
  13. *
  14. DEFINEMACRO "ProcSection"     ;name it "ProcSection"
  15. LOAD "@1"                     ;load the file section named @1. @1 is a wild card as used here.
  16. DELETE/AGE "365"              ;mark for deletion all files oveer 365 days old
  17. CHECK/PATH                    ;check path of all entries to make sure the underlying
  18. *                             ;file is still there. Mark for deletion those that are not.
  19. PURGE/DELETE                  ;Purge removes files from section where marked for deletion.
  20. *                             ;Delete sends files to trash can when marked for deletion.
  21. SORT/TITLE                    ;Sort remaining listings by Title
  22. SAVE "@1"                     ;Save file section back using proper section name
  23. ENDMACRO                      ;Defines end of procedure
  24. *
  25. DEFINE "WHERE" "HD:RRH"                       ;Defines "Where" to be path to the FSL
  26. ProcSection  "WHERE:BIBFOLDER:DLBIB"          ;Begin processing file section DLBIB
  27. ProcSection  "WHERE:BIZFOLDER:DLBIZ"          ;Then processes file section DLBIZ, etc.
  28. ProcSection  "WHERE:DAFOLDER:DLDA'S"          ;Each section is processed separately. First loading
  29. ProcSection  "WHERE:FKEYFOLDER:DLFKEYS"       ;memory with the names of all files listed in that
  30. ProcSection  "WHERE:FONTSFOLDER:DLFONTS"      ;section. Then deleting those over 365 days old.
  31. ProcSection  "WHERE:GAMESFOLDER:DLGAMES"      ;FSP then checks each listing to assure the path to the
  32. ProcSection  "WHERE:GIFFOLDER:DLGIF"          ;underlying file matches that of the FSL.
  33. ProcSection  "WHERE:HYPERFOLDER:DLHC"         ;Any file listing marked for deletion is removed from
  34. ProcSection  "WHERE:MACIIFOLDER:DLMACII"      ;the listing. Any file referenced for deletion is removed
  35. ProcSection  "WHERE:MAGFOLDER:DLMAG"          ;from the drive (disk). Files are then sorted by title and
  36. ProcSection  "WHERE:MUSICFOLDER:DLMUSIC"      ;the file section is written back to where it came from.
  37. ProcSection  "WHERE:PICFOLDER:DLPIC"          ;The new file section appears sorted by title and all
  38. ProcSection  "WHERE:SSFOLDER:DLSS"            ;path names are correct. This prevents the unsightly
  39. ProcSection  "WHERE:TERMFOLDER:DLTC"          ;"file not found" error from being sent to a caller.
  40. ProcSection  "WHERE:UTILFOLDER:DLUTIL"        ;It also allows Sysop to trash a file from the desktop
  41. ProcSection  "WHERE:VAFOLDER:DLVIDEO"         ;and, when running FSP, automatically remove the
  42. ProcSection  "WHERE:TopFOLDER:DLTop"          ;reference to the file in the FSL.
  43. *
  44. CLEAR                                ;clear memory
  45. *
  46. DEFINE "WHERE" "HD:rrh"              ;Defines "Where" to be path to the FSL.
  47. ADD  "WHERE:BIBFOLDER:DLBIB"         ;Start a new routine where we add to memory all the file
  48. ADD  "WHERE:BIZFOLDER:DLBIZ"         ;listing from all of the sections.
  49. ADD  "WHERE:CEFOLDER:DLCE"
  50. ADD  "WHERE:DAFOLDER:DLDA'S"
  51. ADD  "WHERE:FKEYFOLDER:DLFKEYS"
  52. ADD  "WHERE:FONTSFOLDER:DLFONTS"
  53. ADD  "WHERE:GAMESFOLDER:DLGAMES"
  54. ADD  "WHERE:GIFFOLDER:DLGIF"
  55. ADD  "WHERE:HYPERFOLDER:DLHC"
  56. ADD  "WHERE:MACIIFOLDER:DLMACII"
  57. ADD  "WHERE:MAGFOLDER:DLMAG"
  58. ADD  "WHERE:MUSICFOLDER:DLMUSIC"
  59. ADD  "WHERE:PICFOLDER:DLPIC"
  60. ADD  "WHERE:SSFOLDER:DLSS"
  61. ADD  "WHERE:TERMFOLDER:DLTC"
  62. ADD  "WHERE:UTILFOLDER:DLUTIL"       ;When done, all files in all section will be contained
  63. ADD  "WHERE:VAFOLDER:DLVIDEO"        ;in memory.
  64. *
  65. FORMAT "TITLE+SECT:12+SIZEK+DATE+UPLDR+CR:0+DESCA"  ;Define a format for listings to be created.
  66. SORT/TITLE                                          ;Sort all files in memory by name.
  67. SAVE "WHERE:ALPHAFOLDER:DLALPHA"                    ;Save this new FSL in one alphabetically sorted FSL 
  68. SAVETEXT/Format "WHERE:TXT:List Of All Files"       ;Save a text file of the whole list using the format
  69. *                                                   ;defined earlier.
  70. SORT/DATE                                           ;Resort memory by date
  71. SAVE "WHERE:LATESTFOLDER:LATEST"                    ;Save as a chronological FSL
  72. DELETE/AGE "10"                                     ;Mark all listings from memory >10 days old
  73. PURGE                                               ;Remove all marked listings from memory.
  74. SAVETEXT/Format "WHERE:System3.msg"                 ;Save a text file for display at logon.
  75. *
  76. Launch "HD:RRH:RR Host"                             ;Launch Host
  77. *
  78.